home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Essentials / MacApp Documentation / MacApp.TECH$ Archives / 1987 / Oct 87 / Re-Custom Scroll Bar 10⁄30 < prev    next >
Encoding:
Text File  |  1991-03-06  |  1006 b   |  36 lines  |  [TEXT/GEOL]
  1. Item    0303588                         30-Oct-87        13:28
  2.  
  3. From:   BIANCHI1                        Bianchi, Curt
  4.  
  5. To:     D0542                           Productive Tech, Dev, Mark Gilford
  6.  
  7. cc:     MACAPP$                         MacApp Interest List
  8.  
  9. Sub:    Response to Custom Scroll Bar…
  10.  
  11. Mark,
  12.  
  13. I think about all you can do is override TFrame.TrackAppControl and handle tumb
  14. scrolling yourself and call INHERITED TrackAppControl for the other part codes.
  15. Something like this:
  16.  
  17. BEGIN
  18.     CASE partCode OF
  19.         inThumb:
  20.             BEGIN
  21.             scrollingFrame := TFrame(refCon - 1);
  22.             partCode := TrackControl(aControl, localPt, NIL);
  23.             value := GetCtlValue(aControl);
  24.             {constrain value as desired}
  25.             SetCtlValue(aControl, value);
  26.             scrollingFrame.ScrlToSBars(FALSE);
  27.             TrackAppControl := gNoChanges;
  28.             END;
  29.         OTHERWISE
  30.             TrackAppControl := INHERITED TrackAppControl(...);
  31. END;
  32.  
  33. Curt Bianchi
  34.  
  35.  
  36.